home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / hexer / mpth_17.exe / {app} / scripts / copyhextoclipboard.mps < prev    next >
Encoding:
Text File  |  2006-06-05  |  737 b   |  29 lines
  1. include '*.lng'
  2.  
  3. = copy the current selection (or whole file, if nothing selected) to clipboard in
  4. = formatted hex text format
  5. = markus stephany, may 23, 2006
  6.  
  7. option opt5, 'copyhextoclipboard.ico':= set an icon for this script
  8.  
  9.  
  10. = check if a file is currently open
  11. IF (CURRENTFILE=="")
  12.   ERROR __ERR1__
  13. ENDIF
  14.  
  15. = open current file
  16. VAR curfile FILE
  17. curfile = FILEOPEN("::current", "r")
  18. IF (FILEGETPROP(curfile, "Size") == 0)
  19.   FILECLOSE curfile
  20.   ERROR __ERR2__
  21. ENDIF
  22.  
  23. = check whether selection or whole file is to be copied
  24. VAR selonly BYTE
  25. selonly = (FILEGETPROP(curfile, "SelCount")  != 0)
  26. FILECLOSE curfile
  27.   
  28.  
  29. !CMD.FileExport, ENVPARSE('%apppath%\scripts\export\ex-hextext.mps'), "::clipboard", selonly, 1